﻿Public Class EPersona

    'Declaracion de campos
    Private mapellido As String
    Private mnombre As String
    Private mdni As String
    Private mdireccion As String
    Private mtelefono As String
    Private memail As String
    Private mlocalidad As Int32

    'Declaracion de propiedades
    Public Property apellido() As String
        Get
            Return mapellido
        End Get
        Set(ByVal value As String)
            mapellido = value
        End Set
    End Property
    Public Property nombre() As String
        Get
            Return mnombre
        End Get
        Set(ByVal value As String)
            mnombre = value
        End Set
    End Property
    Public Property dni() As String
        Get
            Return mdni
        End Get
        Set(ByVal value As String)
            mdni = value
        End Set
    End Property
    Public Property direccion() As String
        Get
            Return mdireccion
        End Get
        Set(ByVal value As String)
            mdireccion = value
        End Set
    End Property
    Public Property telefono() As String
        Get
            Return mtelefono
        End Get
        Set(ByVal value As String)
            mtelefono = value
        End Set
    End Property

    Public Property email() As String
        Get
            Return memail
        End Get
        Set(ByVal value As String)
            memail = value
        End Set
    End Property
    Public Property localidad() As Int32
        Get
            Return mlocalidad
        End Get
        Set(ByVal value As Int32)
            mlocalidad = value
        End Set
    End Property

End Class
